Option Explicit
Sub B_Sample037()
    Dim myWb As Workbook
    Set myWb = Workbooks(1)			'Nï
    MsgBox myWb.ProtectStructure		'cO@

    MsgBox myWb.ProtectWindows		'ïO@
    Set myWb = Nothing				'
End Sub
